home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
2510.ZIP
/
TRSOURCE.EXE
/
TR_ARRTP.PRG
< prev
next >
Wrap
Text File
|
1990-10-22
|
648b
|
25 lines
*********
* ATYPE
* by Tom Rettig
*
* Placed in the public domain by Tom Rettig Associates, 10/22/1990.
*
* Syntax: atype( <expA> )
* Return:
* "A" if array name only is passed (Winter '85 update and later)
* "B" if block type element (5.0 and later)
* "C" if character type element
* "D" if date type element
* "L" if logical type element
* "N" if numeric type element
* "O" if object type element (5.0 and later)
* "U" if uninitialized element (NIL, local, static in 5.0 and later)
*
FUNCTION ATYPE
PARAMETERS tr_a
RETURN TYPE('tr_a')
* eofunc atype